Vyber tiskarny...

Otázka od: Cinda

8. 4. 2004 14:03

Prosim o pomoc pri vyberu tiskarny pro tisk.
Jedna se o pocitac, na ktery jsou pripojeny tri tiskarny. Do ted sem
pouzival Quick Report a jednotlivym reportum sem tiskarnu prirazoval pomoci.

procedure Tiskarna(TiskRep : tQuickRep);
begin
TiskRep.PrinterSettings.PrinterIndex := "indextiskarny";
TiskRep.Prepare;
end;

Momentalne jsem si vytvoril tiskove sestavy v QR Designu (*.QR2) a nevim jak
urcitym sestavam automaticky priradit pozadovanou tiskarnu. Vzdy to
samozrejme vezme tiskarnu vychozi a musi se pri nahledu tiskarna vybrat.
Diky moc za kazdou radu. Honza

Odpovedá: Petr Daricek

8. 4. 2004 15:37

> Prosim o pomoc pri vyberu tiskarny pro tisk.
> Jedna se o pocitac, na ktery jsou pripojeny tri tiskarny. Do ted sem
> pouzival Quick Report a jednotlivym reportum sem tiskarnu prirazoval pomoci.
>
> procedure Tiskarna(TiskRep : tQuickRep);
> begin
> TiskRep.PrinterSettings.PrinterIndex := "indextiskarny";
> TiskRep.Prepare;
> end;
>
> Momentalne jsem si vytvoril tiskove sestavy v QR Designu (*.QR2) a nevim jak
> urcitym sestavam automaticky priradit pozadovanou tiskarnu. Vzdy to
> samozrejme vezme tiskarnu vychozi a musi se pri nahledu tiskarna vybrat.
> Diky moc za kazdou radu. Honza

Ahoj,
ja to delam pres Printer.PrinterIndex:=Index{unit Printers} pozadovane
tiskarny.

Petr Daricek

Odpovedá: Pavel ZIDEK

9. 4. 2004 3:53

Zkus se podivat na:

uses
Printers;

//zobrazeni aktivni pripojene tiskarny
Label1.Caption := Printer.Printers.Strings[Printer.PrinterIndex];

//seznam vsech pripojenych tiskaren
ComboBox1.Items := Printer.Printers;
ComboBox1.ItemIndex := Printer.PrinterIndex;

Pavel ZIDEK

Prosim o pomoc pri vyberu tiskarny pro tisk.
Jedna se o pocitac, na ktery jsou pripojeny tri tiskarny. Do ted sem
pouzival Quick Report a jednotlivym reportum sem tiskarnu prirazoval pomoci.